home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / telecomm / 378 / hagtrm33 / omayerv.hag < prev   
Text File  |  1978-02-04  |  1KB  |  63 lines
  1. MODE 1
  2. CLS
  3. PRINT 1|1|Please enter the download SIG: 
  4. INPUT 5
  5. LET }S{|~#INPUT#~
  6. PRINT 1|2|Please enter the file to download: 
  7. INPUT 30
  8. LET }F{|~#INPUT#~
  9. PRINT 1|3|Enter the Date to Download (RETURN for today): 
  10. INPUT 30
  11. LET }D{|~#INPUT#~
  12. PRINT 1|4|Enter the Time to Download (RETURN for now): 
  13. INPUT 30
  14. LET }T{|~#INPUT#~
  15. IF ~#DATE#~|<>||GOTO WAITFORDATE
  16. GOTO DONTWAITFORDATE
  17. LABEL WAITFORDATE
  18. WAITDATE }D{
  19. LABEL DONTWAITFORDATE
  20. IF ~#TIME#~|<>||GOTO WAITFORTIME
  21. GOTO DONTWAITFORTIME
  22. LABEL WAITFORTIME
  23. WAITTIME }T{
  24. LABEL DONTWAITFORTIME
  25. LABEL DIALAGAIN
  26. CLS
  27. PRINT 1|1|Dialing O-Mayer V to download the file: }F{ from SIG #}S{
  28. PRINT 1|5|
  29. OUT ~(13)
  30. OUT ~(13)
  31. DIAL.AUTODIAL 0
  32. DIALNAME MAYER
  33. WAIT Hit Return|30000
  34. IF ~#WAIT#~|>|0|GOTO CONNECT
  35. GOTO DIALAGAIN
  36. LABEL CONNECT
  37. CLS
  38. PRINT 1|3|Connection!
  39. OUT ~(13)
  40. WAIT [1]|0
  41. OUT ~(13)
  42. WAIT Connection|0
  43. OUT ⇨
  44. WAIT None) :|0
  45. OUT ~#USER#~~(13)
  46. WAIT password:|0
  47. OUT ~#PASS#~~(13)
  48. WAIT Q=Exit)> |0
  49. OUT Q~(13)
  50. WAIT Ready: |0
  51. OUT F~(13)
  52. WAIT Select> |0
  53. OUT }S{~(13)
  54. WAIT ?=List)> |0
  55. OUT D~(13)
  56. WAIT ber: |0
  57. OUT }F{~(13)
  58. WAIT =Abort): |0
  59. OUT Y~(13)
  60. DOWNLOAD 3|~#PATH#~
  61. CLS
  62. PRINT 1|1|&Download completed!&
  63.